home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / kgclock.zip / README.TXT < prev    next >
Text File  |  1992-08-13  |  5KB  |  153 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.                       CLOCK FOR CLIPPER 5 APPLICATIONS
  11.                           Gallagher Computing Corp.
  12.                             Written by Ben Echols
  13.                               with MS-MASM 6.0
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.   ■ This function will continuously display the time at desired position.
  25.  
  26.   ■ Works with Clipper 5.0 only, it will not work with Clipper Summer 87.
  27.  
  28.   ■ See below for error checking and valid  -> ROW/COLUMN placements.
  29.  
  30.   ■ Colors used are the colors at the desired position of the clock.
  31.     If the colors were the clock will be positioned are white on blue then 
  32.     the clock will be white on blue..
  33.  
  34.   ■ Warning! The clock works with the interrupt system, and for this
  35.     reason MUST be uninstalled prior to leaving the Clipper program.
  36.     Otherwise the interrupt vectors will not be restored, and the system
  37.     will CRASH -- BIG TIME..
  38.  
  39.   ■ The demo shows three methods of installing/uninstalling the clock.
  40.     Select one of them and use the Clipper "define" directive...
  41.  
  42.   ■ Also note that if you do not own GRUMP.LIB, you will need to alter
  43.     the demo (remove grump functions).
  44.  
  45.  
  46.   ■ Tip: Use SETCANCEL() to prohibit users from breaking out of the
  47.     program that is using the clock, so the system does not crash.
  48.  
  49.   ■ And of course its time to plead for $$'s
  50.     If you like this clock function, please send a poor programmer $5.00
  51.     dollars (if you are poor too then by all means keep it for free)..
  52.     Send $15.00 for source code -- .ASM
  53.  
  54.   ■ How to compile/link (Clock functions)
  55.     Clipper test /m/n/a/w
  56.     Rtlink FILE test, ticker LIB grump
  57.  
  58.   ■ GRUMPFISH FUNCTIONS:
  59.     ~~~~~~~~~~~~~~~~~~~~
  60.     GFSAVEENV()      -  Saves screen/cursor/color
  61.     EXBOX()          -  Exploding box with shadow
  62.     WAITON()         -  Message box
  63.     BYEBYEBOX()      -  Restore screen used by EXBOX()
  64.     WAITOFF()        -  Restores screen used by WAITON()
  65.     GFRESTENV()      -  Restores from GFSAVEENV()
  66.  
  67.  
  68.   ■ Coming attractions:
  69.     BK_NUMDRV() --> nFloppies
  70.     This function also written in assembly code for Clipper will return
  71.     0  -  If no floppy drives are installed
  72.     1  -  If there the system has only one floppy drive installed
  73.     2  -  If there the system has only one floppy drive installed
  74.     In other words it returns the number of installed diskette drives.
  75.     So by calling this function with a system with one (1) floppy drive,
  76.     you can eliminate the DOS message "insert diskette into drive b:"
  77.     BK_NUMDRV() is betaing at present time.
  78.  
  79.     BK_SQUISH()
  80.     Used to remove unwanted characters from a string. There are functions
  81.     that do this now, but this one will do multiple removals in one pass,
  82.     were others need say six passes, this one will need one pass..
  83.     BK_SQUISH() is alpha testing at present time
  84.  
  85.     The next release of this clock will have the ability to remove itself
  86.     upon exiting a program (auto uninstall).
  87.  
  88.  
  89.  
  90.   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  91.   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  92.  
  93.   BK_TICKINS(<nRow>, <nCol>)
  94.   BK_TICKREM()
  95.  
  96.   ARGUMENTS:
  97.      <nRow>    0 - 24 is the row where the clock will be placed.
  98.      <nLeft>   0 - 72 is the column where the clock will be placed.
  99.  
  100.   RETURNS:
  101.      - 100     successful
  102.      -  99     col out of range                        \  BK_TICKINS ...
  103.      -  98     row out of range                         \ ... only
  104.      -  97     already installed / not installed
  105.  
  106.   EXAMPLES:
  107.      BK_TICKINS(24,60)                       // Install clock.
  108.      BK_TICKREM()                            // Remove clock.
  109.  
  110.  
  111.  
  112.   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  113.  
  114.   SEND COMMENTS/REGISTERATION
  115.   ===========================
  116.   Gallagher Computing Corp.
  117.   660 Woodward Drive
  118.   Huntingdon Valley Penna. 19006
  119.   Compuserve CIS: 70034,2313
  120.   Send Money Orders or personal bankcheck (no cash)
  121.  
  122.   Your name____________________________________________
  123.  
  124.      Street____________________________________________
  125.  
  126.        City____________________________________________
  127.  
  128.       State____________________ZipCode_________________
  129.  
  130.    Comments
  131.  
  132.  
  133.  
  134.  
  135.   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  136.   SIMPLE DEMO:
  137.   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  138.  
  139.   function main
  140.       local nErr
  141.       @0,0 say padr(" Press any key to exit program",80) color "n/w"
  142.       CLOCK( 0, 72 )           // Install clock
  143.       inkey(0)                 // allow clock to run until keypress
  144.       nErr:=CLOCK()            // Remove clock
  145.       @3,0 say "Return code from clock is "+STR(nErr,3)  color "w+/n"
  146.   return nil
  147.  
  148.   function CLOCK(nRow,nCol)
  149.       local x:=IF(nRow==NIL.OR.nCol==NIL,BK_TICKREM(),BK_TICKINS(nRow, nCol))
  150.   return x
  151.  
  152.   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  153.